﻿Imports DAO
Imports DTO
Public Class KhachHangBUS

    Public Function LayBang() As DataTable
        'Kiem tra business rule neu co
        Dim khDao As New KhachHangDAO()
        Dim dt As DataTable
        dt = khDao.LayBang()
        Return dt
    End Function


    Public Function LayDanhSach() As IList
        'Kiem tra business rule neu co
        Dim khDao As New KhachHangDAO()
        Dim ds As IList
        ds = khDao.LayDanhSach()
        Return ds
    End Function

    'thêm
    Public Sub Them(ByVal khDto As KhachHangDTO)
        'Kiem tra business rule neu co
        Dim khDao As New KhachHangDAO()
        khDao.Them(khDto)
    End Sub
End Class
